home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / mcrsedtj.lzh / HORSIZE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-01  |  2KB  |  54 lines
  1. PROCEDURE horsizeMouse;
  2.  
  3. var
  4.   horsizemasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   horsizemasks[0,0] := $FFFF;    {1111111111111111}
  12.   horsizemasks[0,1] := $FFFF;    {1111111111111111}
  13.   horsizemasks[0,2] := $E7E7;    {1110011111100111}
  14.   horsizemasks[0,3] := $C7E3;    {1100011111100011}
  15.   horsizemasks[0,4] := $8001;    {1000000000000001}
  16.   horsizemasks[0,5] := $0000;    {0000000000000000}
  17.   horsizemasks[0,6] := $8001;    {1000000000000001}
  18.   horsizemasks[0,7] := $C7E3;    {1100011111100011}
  19.   horsizemasks[0,8] := $E7E7;    {1110011111100111}
  20.   horsizemasks[0,9] := $FFFF;    {1111111111111111}
  21.   horsizemasks[0,10] := $FFFF;   {1111111111111111}
  22.   horsizemasks[0,11] := $FFFF;   {1111111111111111}
  23.   horsizemasks[0,12] := $FFFF;   {1111111111111111}
  24.   horsizemasks[0,13] := $FFFF;   {1111111111111111}
  25.   horsizemasks[0,14] := $FFFF;   {1111111111111111}
  26.   horsizemasks[0,15] := $FFFF;   {1111111111111111}
  27.  
  28. { Cursor Mask }
  29.  
  30.   horsizemasks[1,0] := $0000;    {0000000000000000}
  31.   horsizemasks[1,1] := $0000;    {0000000000000000}
  32.   horsizemasks[1,2] := $0000;    {0000000000000000}
  33.   horsizemasks[1,3] := $1008;    {0001000000001000}
  34.   horsizemasks[1,4] := $300C;    {0011000000001100}
  35.   horsizemasks[1,5] := $7FFE;    {0111111111111110}
  36.   horsizemasks[1,6] := $300C;    {0011000000001100}
  37.   horsizemasks[1,7] := $1008;    {0001000000001000}
  38.   horsizemasks[1,8] := $0000;    {0000000000000000}
  39.   horsizemasks[1,9] := $0000;    {0000000000000000}
  40.   horsizemasks[1,10] := $0000;   {0000000000000000}
  41.   horsizemasks[1,11] := $0000;   {0000000000000000}
  42.   horsizemasks[1,12] := $0000;   {0000000000000000}
  43.   horsizemasks[1,13] := $0000;   {0000000000000000}
  44.   horsizemasks[1,14] := $0000;   {0000000000000000}
  45.   horsizemasks[1,15] := $0000;   {0000000000000000}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.CX := 0;
  49.   regs.DX := ofs(horsizemasks);
  50.   regs.ES := seg(horsizemasks);
  51.   Intr(51,Regs);
  52. end;
  53. 
  54.